home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / LFC-AE21.DMS / in.adf / ArtEffect Install-Script < prev    next >
Encoding:
Text File  |  1997-05-25  |  20.5 KB  |  680 lines
  1. ;*************************************************************************
  2. ;*  ArtEffect 2.0 Installer by Markus Nerding                            *
  3. ;*                                                                       *                                *
  4. ;*  ©1997 HAAGE & PARTNER Computer GmbH                                  *
  5. ;*                                                                       *
  6. ;*************************************************************************
  7. ;
  8. ; $VER: ArtEffect V2.0 Install Version 1.01 (25 May 97)
  9.  
  10. (complete 0)
  11.  
  12. ; Version No. and Date
  13. (set stw-version "2.1")
  14. (set stw-date "(22 May 97)")
  15.  
  16. ;====================================================================
  17. ; Initialisation
  18.  
  19. (set @default-dest "")
  20.  
  21. (set os-version (/ (getversion) 65536))
  22. (set os-13 (< os-version 36))
  23. (set os-20 (>= os-version 36))
  24. (set os-21 (>= os-version 38))
  25.  
  26. (set totalmem (database "total-mem")) ; Diese schöne Funktion vereinfacht einiges
  27.  
  28. (set size-komplett 5000000)
  29.  
  30. ;====================================================================
  31. ; Init (English)
  32.  
  33.     (set #yeskey "Yes")
  34.     (set #nokey "No")
  35.  
  36.     (set #wrongos "\n Sorry, you will need OS 3.0 or better!\n")
  37.  
  38.     (set #welcome (cat "\nWelcome to the installation of \n\n"
  39.          "ArtEffect " stw-version " of "stw-date"\n\n"
  40.          "This script copies all the files of ArtEffect "
  41.          "and the Wizard-Library onto your hard disk "
  42.          "and adds an Assign.\n\n\n"
  43.          "© Copyright 96/97 HAAGE & PARTNER Computer GmbH"))
  44.  
  45.     (set #oldversion (cat "\n"
  46.         "There is another version of ArtEffect on your "
  47.         "hard disk !\n"
  48.         ))
  49.  
  50.     (set #oldversion_help (cat "\n"
  51.         "Please choose the old drawer to Update your \n"
  52.         "old version !"
  53.         ))
  54.     (set #new    "New installation")
  55.     (set #update "Update old version")
  56.     (set #remove "Deinstallation - deletes ArtEffect")
  57.  
  58.     (set #chose_path (cat
  59.         "Please select a device or a drawer for your "
  60.         "installation of ArtEffect.\n"
  61.         "A new drawer named \"ArtEffect2\" will be created "
  62.         "automatically !"
  63.         ))
  64.  
  65.     (set #chose_path_help (cat "\n"
  66.         "Select 'Show drives' to get an overview of all "
  67.         "devices.\n"
  68.         "Please select one of the devices on top of "
  69.         "the list.\n"
  70.         "Typical names are f.i. \"WORK:\", \"HD0:\" or \"DH0:\" "
  71.         "Do not use \"DF0:\", \"DF1:\", \"DF2:\", "
  72.         "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", "
  73.         "\"WB_2.x:\", \"System3.0:\" or \"WB_3.x:\"! \n\n"
  74.         "A new drawer named \"ArtEffect\" will be created "
  75.         "automatically!\n\n"
  76.         @askdir-help))
  77.  
  78.     (set #auswahlhilfe (cat "\n"
  79.         "There is an old version of ArtEffect on your "
  80.         "hard disk !\n\n"
  81.         "Select \"Yes\" to overwrite the old files. "
  82.         "Otherwise select \"No\" !\n"
  83.         ))
  84.  
  85.     (set #wrk_justamoment (cat "\n"
  86.         "This will last some time !\n"
  87.         "Please stay tuned ...\n"
  88.         ))
  89.  
  90.     (set #wrk_guidecrunch (cat "\n"
  91.         "Unpacking files ...\n\n"
  92.         "ArtEffect - The outstanding Graphics Package! \n\n"
  93.         #wrk_justamoment
  94.         ))
  95.  
  96.     (set #decrunch_error (cat "\n\n"
  97.         "Error while unpacking files !\n\n"
  98.         "Maybe there is not enough free space on your "
  99.         "hard disk or some files are protected from "
  100.         "deleting or writing !\n"
  101.         ))
  102.  
  103.     (set #prp-copy-lib
  104.         "Copying Wizard-LIBRARY\n")
  105.     (set #hlp-copy-lib
  106.         "Wizard-Library is needed by ArtEffect !")
  107.  
  108.     (set #prp-insert-disk1 (cat "\n"
  109.         "\n\nPlease insert Disk 1 \"ArtEffect2_Disk1\" "
  110.         "in any drive now !"
  111.         ))
  112.  
  113.     (set #prp-insert-disk2 (cat "\n"
  114.         "\n\nPlease insert Disk 2 \"ArtEffect2_Disk2\" "
  115.         "in any drive now !"
  116.         ))
  117.  
  118.     (set #prp-insert-disk3 (cat "\n"
  119.         "\n\nPlease insert Disk 3 \"ArtEffect2_Disk3\" "
  120.         "in any drive now !"
  121.         ))
  122.  
  123.     (set #prp-insert-disk4 (cat "\n"
  124.         "\n\nPlease insert Disk 4 \"ArtEffect2_Disk4\" "
  125.         "in any drive now !"
  126.         ))
  127.  
  128. (if (= @language "deutsch") (
  129.  
  130.     (set #yeskey "Ja")
  131.     (set #nokey "Nein")
  132.  
  133.     (set #wrongos "\n Sorry, dieses Paket benoetigt mind. OS 3.0.\n")
  134.  
  135.     (set #welcome (cat "\nWillkommen bei der Installation von \n\n"
  136.          "ArtEffect " stw-version " vom "stw-date"\n\n"
  137.          "Dieses Skript entpackt ArtEffect, kopiert "
  138.          "die aktuelle Wizard-Library auf Ihre Festplatte "
  139.          "und erzeugt einen Assign.\n\n\n"
  140.          "© Copyright 96/97 HAAGE & PARTNER Computer GmbH"))
  141.  
  142.     (set #oldversion (cat "\n"
  143.         "Auf Ihrer Festplatte befindet sich bereits "
  144.         "eine Installation von ArtEffect!\n"
  145.         ))
  146.  
  147.     (set #oldversion_help (cat "\n"
  148.         "Wählen Sie einfach die bereits vorhandene "
  149.         "Schublade an, wenn Sie ihr altes System "
  150.         "aktualisieren möchten!"
  151.         ))
  152.     (set #new    "Neu installieren")
  153.     (set #update "Update über bisherige Version installieren")
  154.     (set #remove "Deinstallation - ArtEffect entfernen")
  155.  
  156.     (set #chose_path (cat
  157.         "Auswahl des Pfades für die Installation\n"
  158.         "Bitte wählen Sie ein Laufwerk oder ein Verzeichnis !\n"
  159.         "Eine Schublade \"ArtEffect2\" wird automatisch erzeugt."
  160.         ))
  161.  
  162.     (set #chose_path_help (cat  "\n"
  163.         "Sie können über das Symbol 'Laufwerke anz.' "
  164.         "(bzw. 'Show drives') eine Übersicht über alle "
  165.         "Laufwerke Ihres Amiga anfordern; aus dieser "
  166.         "Übersicht sollten Sie nur die oberen, nicht "
  167.         "farblich gekennzeichneten Einträge auswählen.\n"
  168.         "Typische sinnvolle Namen sind z.B. \"WORK:\", "
  169.         "\"HD0:\" oder \"DH0:\" nicht verwenden sollten "
  170.         "Sie Namen wie \"DF0:\", \"DF1:\", \"DF2:\", "
  171.         "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", "
  172.         "\"WB_2.x:\", \"System3.0:\" oder \"WB_3.x:\"!\n\n"
  173.         "ArtEffect kann nur in eine Schublade nicht aber "
  174.         "auf eine Partition direkt installiert werden! \n"
  175.         "Wenn Sie also nur ein Laufwerk für die "
  176.         "Installation auswählen, wird Ihnen eine "
  177.         "Fehlermeldung angezeigt!\n\n"
  178.         @askdir-help))
  179.  
  180.     (set #auswahlhilfe (cat "\n"
  181.         "Auf Ihrer Festplatte befindet sich bereits "
  182.         "eine Version der Datei die installiert werden "
  183.         "soll.\n\n"
  184.         "Wählen Sie \"Ja\", wenn Sie die alte Datei mit "
  185.         "der neuen überschreiben möchten. "
  186.         "Anderenfalls wählen Sie bitte \"Nein\"!\n"
  187.         ))
  188.  
  189.     (set #wrk_justamoment (cat "\n"
  190.         "Das dauert eine geraume Zeit.\n"
  191.         "Bitte haben Sie etwas Geduld!\n"
  192.         ))
  193.  
  194.     (set #wrk_guidecrunch (cat "\n"
  195.         "Entpacke die Dateien...\n\n"
  196.         "ArtEffect - Das neuartige Grafikprogramm!\n\n"
  197.         #wrk_justamoment
  198.         ))
  199.  
  200.     (set #decrunch_error (cat "\n"
  201.         "Fehler beim Entpacken!\n\n"
  202.         "Stellen Sie bitte sicher, daß Ihre Festplatte "
  203.         "ausreichend Speicherkapazität hat, und, falls "
  204.         "die Dateien bereits vorhanden sind diese nicht "
  205.         "Lösch- oder Schreibgeschützt sind.\n"
  206.         ))
  207.  
  208.     (set #prp-copy-lib
  209.         "Kopiere die Wizard-LIBRARY\n")
  210.     (set #hlp-copy-lib
  211.         "Ohne die aktuelle Version der Wizard-Library, funktioniert nichts!")
  212.  
  213.     (set #prp-insert-disk1 (cat "\n"
  214.         "\n\nBitte legen Sie nun die Diskette 1 \"ArtEffect2_Disk1\" "
  215.         "in ein beliebiges Laufwerk ein!"
  216.         ))
  217.  
  218.     (set #prp-insert-disk2 (cat "\n"
  219.         "\n\nBitte legen Sie nun die Diskette 2 \"ArtEffect2_Disk2\" "
  220.         "in ein beliebiges Laufwerk ein!"
  221.         ))
  222.  
  223.     (set #prp-insert-disk3 (cat "\n"
  224.         "\n\nBitte legen Sie nun die Diskette 3 \"ArtEffect2_Disk3\" "
  225.         "in ein beliebiges Laufwerk ein!"
  226.         ))
  227.  
  228.     (set #prp-insert-disk4 (cat "\n"
  229.         "\n\nBitte legen Sie nun die Diskette 4 \"ArtEffect2_Disk4\" "
  230.         "in ein beliebiges Laufwerk ein!"
  231.         ))
  232. ))
  233.  
  234. ; ----------------------------- Procedures ------------------------------
  235.  
  236. (Procedure Make_Folder
  237.     (
  238.     (set folder (tackon folder "ArtEffect2"))
  239.         (if (= (exists folder) 0)
  240.             (
  241.             (makedir folder (infos))
  242.             )
  243.             (
  244.             (set update 1)        ; // Already there ?!?
  245.             )
  246.         )
  247.     )
  248. )
  249.  
  250. ; // Die Pfadnamen der einzelnen Quell-Dateien.
  251. (set source-more                    "ArtEffect2_Disk1:C/More")
  252. (set source-lhx                     "ArtEffect2_Disk1:C/LHex")
  253. (set source-Guide                   "ArtEffect2_Disk1:Readme")
  254. (set source-icon                    "ArtEffect2_Disk1:C/Readme.info")
  255.  
  256. (if (= @language "deutsch") (
  257.    (set source-Guide                   "ArtEffect2_Disk1:Liesmich")
  258.    (set source-icon                    "ArtEffect2_Disk1:C/Liesmich.info")
  259. ))
  260.  
  261. (set archive-ArtEffectBrushes      "ArtEffect2_Disk1:Brushes.English.Lha")
  262.  
  263. ;=====================================================================================
  264. ; Beginn der Installation
  265. ;=====================================================================================
  266.  
  267. ; // needs OS 3.0 !!!
  268. (if (< (/ (getversion) 65536) 39)
  269.     (
  270.         (message #wrongos)
  271.         (exit (quiet))
  272.     )
  273. )
  274.  
  275. ; Intro
  276. (message #welcome)
  277. (welcome)
  278. (complete 5)
  279.  
  280. ; // Alte Version prüfen und entsprechende Abfrage ausgeben!--------------------------------------------
  281. (set update   0)
  282.  
  283. ;(if (exists "ArtEffect:" (noreq))
  284. ;    (
  285. ;        (set update
  286. ;            (askchoice
  287. ;                (prompt #oldversion)
  288. ;                (help   #oldversion_help)
  289. ;                (default 1)
  290. ;                (choices
  291. ;                    #new
  292. ;                    #update
  293. ;                    #remove
  294. ;                )
  295. ;            )
  296. ;        )
  297. ;    )
  298. ;)
  299.  
  300. (set act-user-level @user-level)
  301. (user 1)
  302.  
  303. (set folder "WORK:")
  304.  
  305. (if (<> update 0)  ; // altes Assign benutzen wenn update oder remove
  306.     (
  307.         (set folder (getassign "ArtEffect"))
  308.     )
  309. )
  310.  
  311. (user act-user-level)
  312.  
  313. (if (= update 0)
  314.     (
  315.     (set ok 0)
  316.         (while (not ok)
  317.             (set folder
  318.                 (askdir
  319.                 (prompt #chose_path)
  320.                 (help #chose_path_help)    ; // Auswahl Hilfetext
  321.                 (default folder)
  322.                 (disk)
  323.                 )
  324.             )
  325.  
  326.             (Make_Folder)    ; // Automatisch neues Verzeichnis anlegen!
  327.  
  328.     (set #dir_error (cat  "\n"
  329.         "Your selection \"" folder "\" is not a valid device or drawer!\n\n"
  330.         "Select 'Show drives' to get an overview of all "
  331.         "devices available on your Amiga.\n"
  332.         "Please select one of the devices on top of the list.\n"
  333.         "Typical names are f.i. \"WORK:\", \"HD0:\" or \"DH0\" "
  334.         "Do not use \"DF0:\", \"DF1:\", \"DF2:\", "
  335.         "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", "
  336.         "\"WB_2.x:\", \"System3.0:\" or \"WB_3.x:\"!\n\n"
  337.         ))
  338.  
  339.     (set #memory_error (cat  "\n"
  340.         "There is not enough free disk space at the "
  341.         "device you have selected for the installation.\n\n"
  342.         "Free diskspace    " freediskspace "!\n"
  343.         "Diskspace needed  " size-komplett "!\n\n"
  344.         "Please select a another device or harddisk!"
  345.         ))
  346.  
  347. (if (= @language "deutsch") (
  348.  
  349.     (set #dir_error (cat  "\n"
  350.         "Bei Ihrer Auswahl \"" folder "\" handelt es "
  351.         "sich nicht um eine gültige Schublade!\n\n"
  352.         "Sie können über das Symbol 'Laufwerke anz.' "
  353.         "(bzw. 'Show drives') eine Übersicht über alle "
  354.         "Laufwerke Ihres Amiga anfordern; aus dieser "
  355.         "Übersicht sollten Sie nur die oberen, nicht "
  356.         "farblich gekennzeichneten Einträge auswählen.\n"
  357.         "Über den Schalter \"Neue Schublade anlegen..\" "
  358.         "können Sie ein neue Schublade erzeugen. Diese "
  359.         "neue Schublade wird auf der Partition "
  360.         "angelegt, die Sie soeben betrachten."
  361.         ))
  362.  
  363.     (set #memory_error (cat  "\n"
  364.         "Auf der ausgewählten Festplattenpartition "
  365.         "steht nicht genügend freier Speicher für die "
  366.         "komplette Installation des Compilersystems zur "
  367.         "Verfügung.\n\n"
  368.         "Freier Speicher " freediskspace "!            \n"
  369.         "Benötigter Speicher " size-komplett "!        \n"
  370.         "                                              \n"
  371.         "Bitte wählen Sie eine andere Partition, auf "
  372.         "der entsprechende Kapazitäten vorhanden sind!"
  373.         ))
  374. ))
  375.  
  376.             ; // Ist der Dateiname leer oder endet mit einem ':' oder existiert unter
  377.             ; // diesem Namen kein Verzeichnis, wird eine Fehlermeldung angezeigt; andernfalls
  378.             ; // kann die Auswahl-Schleife beendet werden.
  379.             (if (or (or (or (<= (strlen folder) 0) (= (substr folder (- (strlen folder) 1) 1) ":")) (= (exists folder (noreq)) 0)) (= (getdiskspace folder) -1))
  380.                 (message #dir_error)  ; Fehler bei der Auswahl der Schublade
  381.                 ;else
  382.                 (
  383.                     (set freediskspace (getdiskspace folder))  ; // Der freie Speicher auf diesem Medium
  384.                     (if (< freediskspace size-komplett)
  385.                         (
  386.                         (user 1)
  387.                             (message #memory_error)  ; // nicht genügend freier Speicher
  388.                         )
  389.                      ;else
  390.                         (set ok 1)
  391.                     )
  392.                 )
  393.             )
  394.         )
  395.     )
  396. )
  397.  
  398. (makeassign "ArtEffect")
  399.  
  400. (user act-user-level)
  401.  
  402. ;// Hier Update-Prozedur einbauen
  403. ;
  404. ;(if (= update 1))
  405. ;
  406.  
  407. ; // Diskette 1 einlegen!
  408. (askdisk
  409.     (prompt #prp-insert-disk1)
  410.     (help #askdir-help)
  411.     (dest "ArtEffect2_Disk1")
  412. )
  413.  
  414. (complete 5)
  415.  
  416. ; // Lhx wird in die RAM-Disk kopiert, damit das Programm nicht jedesmal von Disk
  417. ; // geladen werden muß.
  418. (makeassign "ArtEffect")
  419. (makeassign "ArtEffect" folder)
  420.  
  421. (copyfiles
  422.         (dest "RAM:")
  423.         (source source-lhx)
  424. )
  425.  
  426. ; // Handbuch auf Festplatte kopieren!
  427. (copyfiles
  428.         (dest folder)
  429.         (source source-Guide)
  430. )
  431. ; // Handbuch-Icon auf Festplatte kopieren!
  432. (copyfiles
  433.         (dest folder)
  434.         (source source-icon)
  435. )
  436.  
  437. ;(run "run Multiview ArtEffect:Liesmich")
  438. (complete 10)
  439.  
  440. ;==================================================================================
  441. ; Makedir: t, settings
  442.  
  443. (set folder1 (tackon folder "t"))
  444.     (if (= (exists folder1) 0)
  445.         (makedir folder1)
  446.     )
  447.  
  448.  
  449. (set folder2 (tackon folder "settings"))
  450.     (if (= (exists folder2) 0)
  451.         (makedir folder2)
  452.     )
  453.  
  454. ; // Settings-Icon auf Festplatte kopieren!
  455. (copyfiles
  456.         (dest folder)
  457.         (source "ArtEffect2_Disk1:C/settings.info")
  458. )
  459.  
  460. ;==================================================================================
  461. ; Decrunch File1
  462. (makeassign "lhex_temp" folder)
  463.   (working #wrk_guidecrunch)
  464.   (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x ArtEffect2_Disk1:ae2.lha"))
  465.   (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x ArtEffect2_Disk1:data.lha"))
  466.   (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x ArtEffect2_Disk1:brushes.lha"))
  467.   (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x ArtEffect2_Disk1:libs.lha"))
  468.   (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x ArtEffect2_Disk1:rexx.lha"))
  469.   (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x ArtEffect2_Disk1:catalogs.lha"))
  470.   (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x ArtEffect2_Disk1:wizlib.lha"))
  471.   (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x ArtEffect2_Disk1:makeassign.lha"))
  472.   (if  ( <> COMPERROR 0)
  473.      (message #decrunch_error)
  474.   )
  475. (complete 30)
  476.  
  477. (if (<> @language "deutsch") (
  478.   ; Englische Brushes entpacken
  479.   (makeassign "lhex_temp" folder)
  480.   (working #wrk_guidecrunch)
  481.   (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-ArtEffectBrushes))
  482.   (if  ( <> COMPERROR 0)
  483.     (message #decrunch_error)
  484.   )
  485. ))
  486. (complete 35)
  487.  
  488. ;==================================================================================
  489. ; Copy Wizard.Library to Libs:
  490. (set sourcelib (tackon folder "Wizard.library"))
  491. (copylib
  492.         (prompt #prp-copy-lib)
  493.         (help #hlp-copy-lib)
  494.         (source sourcelib)
  495.         (dest "LIBS:")
  496.         (confirm)
  497. )
  498. (complete 40)
  499.  
  500. ;==================================================================================
  501. ; Insert Disk 2
  502. (askdisk
  503.     (prompt #prp-insert-disk2)
  504.     (help #askdir-help)
  505.     (dest "ArtEffect2_Disk2")
  506. )
  507.  
  508. ;==================================================================================
  509. ; Decrunch File2
  510. (makeassign "lhex_temp" folder)
  511.   (working #wrk_guidecrunch)
  512.   (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x ArtEffect2_Disk2:paper.lha"))
  513.   (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x ArtEffect2_Disk2:plugins2.lha"))
  514.   (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x ArtEffect2_Disk2:convolution.lha"))
  515.   (if  ( <> COMPERROR 0)
  516.      (message #decrunch_error)
  517.   )
  518. (complete 60)
  519.  
  520. ;==================================================================================
  521. ; Insert Disk 3
  522. (askdisk
  523.     (prompt #prp-insert-disk3)
  524.     (help #askdir-help)
  525.     (dest "ArtEffect2_Disk3")
  526. )
  527.  
  528. ;==================================================================================
  529. ; Decrunch File3
  530. (makeassign "lhex_temp" folder)
  531.   (working #wrk_guidecrunch)
  532.  
  533. (if (= @language "deutsch") (
  534.   (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x ArtEffect2_Disk3:docs_d.lha"))
  535.   (if  ( <> COMPERROR 0)
  536.      (message #decrunch_error)
  537.   )
  538. ))
  539.  
  540.  
  541. (if (<> @language "deutsch") (
  542.   (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x ArtEffect2_Disk3:docs_e.lha"))
  543.   (if  ( <> COMPERROR 0)
  544.      (message #decrunch_error)
  545.   )
  546. ))
  547.  
  548.  
  549. (complete 80)
  550.  
  551. ;==================================================================================
  552. ; Insert Disk 4
  553. (askdisk
  554.     (prompt #prp-insert-disk4)
  555.     (help #askdir-help)
  556.     (dest "ArtEffect2_Disk4")
  557. )
  558.  
  559. ;==================================================================================
  560. ; Decrunch File4
  561. (makeassign "lhex_temp" folder)
  562.   (working #wrk_guidecrunch)
  563.   (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x ArtEffect2_Disk4:pictures.lha"))
  564.   (if  ( <> COMPERROR 0)
  565.      (message #decrunch_error)
  566.   )
  567. (complete 90)
  568.  
  569. ;==================================================================================
  570. ; RENAME Pictures to English names
  571.  
  572. (if (<> @language "deutsch") (  ; Falls english installiert wird!
  573.  
  574. (set sourcepict (tackon folder "Pictures/Apfel.jpg"))
  575. (set destpict   (tackon folder "Pictures/Apple.jpg"))
  576.  
  577.                 (if (= (exists sourcepict) 1)
  578.                      (
  579.                      (rename sourcepict destpict)
  580.                      )
  581.                 )
  582.  
  583. (set sourcepict (tackon folder "Pictures/Gemüse.jpg"))
  584. (set destpict   (tackon folder "Pictures/Vegetables.jpg"))
  585.  
  586.                 (if (= (exists sourcepict) 1)
  587.                      (
  588.                      (rename sourcepict destpict)
  589.                      )
  590.                 )
  591.  
  592. (set sourcepict (tackon folder "Pictures/DiaFilm.jpg"))
  593. (set destpict   (tackon folder "Pictures/FilmFrame.jpg"))
  594.  
  595.                 (if (= (exists sourcepict) 1)
  596.                      (
  597.                      (rename sourcepict destpict)
  598.                      )
  599.                 )
  600.  
  601. (set sourcepict (tackon folder "Pictures/Strand_320.jpg"))
  602. (set destpict   (tackon folder "Pictures/Beach_320.jpg"))
  603.  
  604.                 (if (= (exists sourcepict) 1)
  605.                      (
  606.                      (rename sourcepict destpict)
  607.                      )
  608.                 )
  609.  
  610. (set sourcepict (tackon folder "Pictures/Sommer96.jpg"))
  611. (set destpict   (tackon folder "Pictures/Summer96.jpg"))
  612.  
  613.                 (if (= (exists sourcepict) 1)
  614.                      (
  615.                      (rename sourcepict destpict)
  616.                      )
  617.                 )
  618. ))
  619.  
  620. (complete 95)
  621.  
  622. ;==================================================================================
  623. ; Modify Startup
  624.  
  625. (set command1 (cat  "ASSIGN ArtEffect: " folder))
  626.  
  627.  
  628. (set command1.txt
  629.         (cat "\n\n\nTo get ArtEffect work right there has to be made "
  630.         "some changes to your User-Startup !\n\n"
  631.         command1
  632.         )
  633. )
  634.  
  635. (if (= @language "deutsch") (
  636.  
  637. (set command1.txt
  638.         (cat "\n\n\nUm mit ArtEffect richtig arbeiten zu können, muß "
  639.         "eine Änderung an der User-Startup vorgenommen werden.\n\n"
  640.         command1
  641.         )
  642. )
  643. ))
  644.  
  645. (startup "ArtEffect"
  646.         (prompt command1.txt)
  647.         (help #help-startup)
  648.         (command command1)
  649. )
  650.  
  651. (makeassign "ArtEffect")
  652. ;(makeassign "ArtEffect" (pathonly @icon))
  653. (makeassign "ArtEffect" folder)
  654.  
  655. (delete "RAM:LHeX")
  656.  
  657. (complete 100)
  658.  
  659. ; ------- FERTIG
  660.  
  661. (set #endnow (cat "Installation of ArtEffect2 completed.\n"
  662.     "When the lines:\n" command1 "\ndoesn`t appear "
  663.     "in your Startup-Sequence or User-Startup, "
  664.     "please do it manually.\n\n"
  665.     "Best wishes...\n\n"
  666.     "HAAGE & PARTNER Computer, Germany"
  667.     ))
  668.  
  669. (if (= @language "deutsch") (
  670.  
  671.     (set #endnow (cat "\nInstallation von ArtEffect2 beendet.\n\n"
  672.         "Falls die Zeilen:\n" command1 "\nnicht in Ihre Startup-Sequence bzw. "
  673.         "User-Startup eingefügt wurde, dann holen Sie dies bitte nach.\n\n"
  674.         "\n\nWir wünschen ihnen viel Erfolg mit ArtEffect!\n\n"
  675.         "HAAGE & PARTNER Computer"
  676.     ))
  677. ))
  678.  
  679. (message #endnow)
  680.